home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.trace.wisc.edu
/
ftp.trace.wisc.edu.zip
/
ftp.trace.wisc.edu
/
hypertyper.sit.hqx
/
HyperTyper
/
HyperTyper - b&w
/
stack.txt
< prev
Wrap
Text File
|
1995-08-20
|
3KB
|
120 lines
-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1400 (can't peek)
-- protect password hash: 0
-- maximum user level: 3 (painting)
-- window: Rect(x1=48, y1=73, x2=560, y2=415)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=512 h=342
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2744
-- card count: 2
-- first card id: 3003
-- list block id: 2057
-- print block id: 0
-- font table block id: 3378
-- style table block id: 3090
-- free block count: 2
-- free size: 18464 bytes
-- total size: 49152 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x02108000
-- compacted by hypercard version: 0x02108000
-- modified by hypercard version: 0x02108000
-- opened by hypercard version: 0x02108000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xD9EAE7C1
----- HyperTalk script -----
on openStack
lock screen
put 2 into x
repeat 53
set textFont of button id x to "Geneva"
set textStyle of button id x to "Bold"
put x into y
put y + 1 into x
end repeat
set textFont of button id 57 to "Geneva"
set textStyle of button id 57 to "Bold"
set textFont of button id 59 to "Geneva"
set textStyle of button id 59 to "Bold"
create menu "Home"
create menu "About HyperTyper"
delete menu "Go"
maketyperMenu
global keYs, lockIt, saveLev
put false into lockIt
put false into keYs
put userlevel into saveLev
unlock screen
end openStack
on maketyperMenu
put "Tell Me..." into typerMenu
put "aboutHyperTyper" into typerMsgs
put typerMenu into menu "About HyperTyper" with menuMessages typerMsgs
put "Go There" into transportMenu
put "gothere" into transportMsgs
put transportMenu into menu "Home" with menuMessages transportMsgs
set userlevel to 2
end maketyperMenu
on aboutHyperTyper
visual effect iris open
domenu "Last"
end aboutHyperTyper
on gothere
go home
end gothere
on closeStack
global saveLev
go to first card
domenu "Compact Stack"
reset menubar
if saveLev is a number then set userlevel to saveLev
end closeStack